#!/usr/bin/perl -w

use strict;

my $a;

for ($a = 0; ; $a++) {
    print(sin($a*$a) . "\n");
}
